﻿Public Class Donna
  Inherits Persona
  Public Overrides _
        Function vaiParrucchiere() As String
    Dim s As String
    Dim nl As String = Environment.NewLine
    s = "Ricevuta fiscale: " & nl & nl & _
       "Lavaggio              10 Euro" & nl & _
       "Taglio donna          40 Euro" & nl & _
       "Massaggio capelli     15 Euro" & nl & _
       "Tinta                 30 Euro" & nl & _
       "Applicazione balsamo  15 Euro" & nl & _
       "Messa in piega        25 Euro" & nl & _
       "Fissaggio             20 Euro" & nl & _
       "-----------------------------" & nl & _
       "Totale pagato        155 Euro"
    Return s
  End Function
End Class
